################################################################################
###
###     Replication Code - Sanctions, Uncertainty, Leader Tenure
###
###     Authors: Bradley C Smith, William Spaniel
###
###     Created: Nov 6, 2014
###
###     NOTE: To use this file, user must set working directory and load
###           R file "primary_results.Rdata" into the workspace.
###           This file reproduces the main results found in table 2 in
###           the text. 
###
################################################################################


rm(list=ls())

# Now, load in object "primary_results.Rdata" into the workspace.

modela <- glm(imposition ~
                lndays +
                regular +
                senders +
                cap_2 + 
                s_un_glo,
              data = data,
              family = binomial(link = logit))
summary(modela)

modelb <- glm(imposition ~
                institution +  
                regular +
                senders +
                cap_2 + 
                s_un_glo,
              data = data,
              family = binomial(link = logit))
summary(modelb)

modelc <- glm(imposition ~
                politytrans +  
                regular +
                senders +
                cap_2 + 
                s_un_glo,
              data = data,
              family = binomial(link = logit))
summary(modelc)

modeld <- glm(imposition ~
                lndays +
                institution +
                politytrans +  
                regular +
                senders +
                cap_2 + 
                s_un_glo,
              data = data,
              family = binomial(link = logit))
summary(modeld)

modelf <- glm(imposition ~
                lndays +
                institution +
                politytrans +  
                regular +
                senders +
                cap_2 + 
                s_un_glo+
                tenpol,
              data = data,
              family = binomial(link = logit))
summary(modelf)

